VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BResumen"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Member0" ,"bCompania"
Attribute VB_Ext_KEY = "Member1" ,"busuario"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
'---------------------------------------------------------------------------------------
' Module    : BResumen
' DateTime  : 30/11/2011 12:04
' Author    :
' Purpose   : Clase Datos Resumen
'---------------------------------------------------------------------------------------
Option Explicit
Private mvarbCompania As bCompania
Private mvarbUsuario As busuario
Private mvarnTotTurno As Double
Private mvarnTotal As Double
Private mvarnTotPendientes As Double
Private mvarnTotGeneral As Double
Private mvarnDiaTrabajo As Integer
Private mvarsMinTicket As String
Private mvarsMaxTicket As String
Private mvardFecha As Date
Private mvarnBaseRptX As Double
Private mvarnIgvRptX As Double
Private mvarnTotalRptX As Double
Private mvarnServicioRptX As Double
Private mvarbTipDocumento As BTipo
Private mvarnDocumentos As Integer
Private mvarnAnulados As Integer
Private mvarnTotAnulados As Double
Private Sub Class_Terminate()
    Set mvarbTipDocumento = Nothing
End Sub
Public Property Get nBaseRptX() As Double
    nBaseRptX = mvarnBaseRptX
End Property
Public Property Let nBaseRptX(ByVal nBaseRptX As Double)
    mvarnBaseRptX = nBaseRptX
End Property
Public Property Get bCompania() As bCompania
    Set bCompania = mvarbCompania
End Property
Public Property Set bCompania(bCompania As bCompania)
    Set mvarbCompania = bCompania
End Property
Public Property Get nTotTurno() As Double
    nTotTurno = mvarnTotTurno
End Property
Public Property Let nTotTurno(ByVal nTotTurno As Double)
    mvarnTotTurno = nTotTurno
End Property
Public Property Get nTotal() As Double
    nTotal = mvarnTotal
End Property
Public Property Let nTotal(ByVal nTotal As Double)
    mvarnTotal = nTotal
End Property
Public Property Get nTotPendientes() As Double
    nTotPendientes = mvarnTotPendientes
End Property
Public Property Let nTotPendientes(ByVal nTotPendientes As Double)
    mvarnTotPendientes = nTotPendientes
End Property
Public Property Get nTotGeneral() As Double
    nTotGeneral = mvarnTotGeneral
End Property
Public Property Let nTotGeneral(ByVal nTotGeneral As Double)
    mvarnTotGeneral = nTotGeneral
End Property
Public Property Get busuario() As busuario
    Set busuario = mvarbUsuario
End Property
Public Property Set busuario(busuario As busuario)
    Set mvarbUsuario = busuario
End Property
Public Property Get nDiaTrabajo() As Integer
    nDiaTrabajo = mvarnDiaTrabajo
End Property
Public Property Let nDiaTrabajo(ByVal nDiaTrabajo As Integer)
    mvarnDiaTrabajo = nDiaTrabajo
End Property
Public Property Get sMinTicket() As String
    sMinTicket = mvarsMinTicket
End Property
Public Property Let sMinTicket(ByVal sMinTicket As String)
    mvarsMinTicket = sMinTicket
End Property
Public Property Get sMaxTicket() As String
    sMaxTicket = mvarsMaxTicket
End Property
Public Property Let sMaxTicket(ByVal sMaxTicket As String)
    mvarsMaxTicket = sMaxTicket
End Property
Public Property Get dFecha() As Date
    dFecha = mvardFecha
End Property
Public Property Let dFecha(ByVal dFecha As Date)
    mvardFecha = dFecha
End Property
Public Property Get nIgvRptX() As Double
    nIgvRptX = mvarnIgvRptX
End Property
Public Property Let nIgvRptX(ByVal nIgvRptX As Double)
    mvarnIgvRptX = nIgvRptX
End Property
Public Property Get nTotalRptX() As Double
    nTotalRptX = mvarnTotalRptX
End Property
Public Property Let nTotalRptX(ByVal nTotalRptX As Double)
    mvarnTotalRptX = nTotalRptX
End Property
Private Sub Class_Initialize()
    Set mvarbCompania = New bCompania
    Set mvarbUsuario = New busuario
    Set mvarbTipDocumento = New BTipo
End Sub
Public Property Get nServicioRptX() As Double
    nServicioRptX = mvarnServicioRptX
End Property
Public Property Let nServicioRptX(ByVal nServicioRptX As Double)
    mvarnServicioRptX = nServicioRptX
End Property
Public Property Get bTipDocumento() As BTipo
    Set bTipDocumento = mvarbTipDocumento
End Property
Public Property Set bTipDocumento(bTipDocumento As BTipo)
    Set mvarbTipDocumento = bTipDocumento
End Property
Public Property Get nDocumentos() As Integer
    nDocumentos = mvarnDocumentos
End Property
Public Property Let nDocumentos(ByVal nDocumentos As Integer)
    mvarnDocumentos = nDocumentos
End Property
Public Property Get nAnulados() As Integer
    nAnulados = mvarnAnulados
End Property
Public Property Let nAnulados(ByVal nAnulados As Integer)
    mvarnAnulados = nAnulados
End Property
Public Property Get nTotAnulados() As Double
    nTotAnulados = mvarnTotAnulados
End Property
Public Property Let nTotAnulados(ByVal nTotAnulados As Double)
    mvarnTotAnulados = nTotAnulados
End Property
